9 POKE53280,14:POKE53281,14:POKE53272,21:POKE657,128
10 PRINT"[147]    [213][195][195][174]"
11 PRINT"    [194][194] [194]   [175][175][175][175][175]           [176][195][195][195][201]"
12 PRINT"   [213][203][171][195][189]   [165] [194] [167]        [206][183][205][194] [194] [194]"
13 PRINT"   [194] [171][195][178][195][195][195][205] [194] [206][195][195][195][174]   [206] [194] [205] [194] [171][195][195][195][174]"
14 PRINT"[195][195][195][179] [194] [194] [194] [194][205][175][206][194] [194] [171][195][195][195][165]   [167][195][177][195][177][174] [176][177][195][195][195][195]";
15 PRINT"   [202][195][195][195][179] [194] [194]   [194] [176][195][219][195][195][195][201] [194] [167]    [194] [194]"
16 PRINT"       [173][195][195][195][189]   [173][195][195][195][179] [194] [194][183][183][183][183]    [173][195][189]"
17 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] [194] [171][195]TOOLPACK#1[195][195][195][195][195]";
18 PRINT"                   [173][195][177][195][189]";
100 PRINT"                 (1) DEC TO HEX
101 [153]" (2) HEX TO DEC
102 PRINT" (3) SECURITY LISTING PRG
103 [133]" NUMBER";P$
104 [139] P$[178]"1" [167] [137] 500
105 [139] P$[178]"2" [167] [137] 509
106 [139] P$[178]"3" [167] [137] 900
107 [137] 9
500 [133] "DEC=";A
501 B1[178][181](A[173](16[172]16[172]16)):R1[178]B1[172]16[172]16[172]16
502 A[178]A[171]R1
503 B2[178][181](A[173](16[172]16)):R2[178]B2[172]16[172]16
504 A[178]A[171]R2
505 B3[178][181](A[173]16):R3[178]B3[172]16
506 B4[178]A[171]R3
507 [153] B1;B2;B3;B4
508 [128]
509 [133] "HEX=";A$
510 L[178][195](A$)
511 [129] K [178] 1[164] L
512 M[178]16[174](L[171]K)
513 B$[178][202](A$,K,1)
514 V[178][198](B$)
515 [139] V[177][178]65 [175] V[179][178]70 [167] W[178]V[171]55
516 [139] V[179][178]57 [167] W[178]V[171]48
517 N[178] W[172]M
518 G[178]G[170]N
519 [130] K
520 [153] G
521 [128]
900 [153]"LOAD"
901 [153]"ON SECURITY LISTING           VERSION 1.0 WAIT"
902 [153]
903 [153]" FROM: JSL IN 1991
904 PRINT"PRESS SPACE!":WAIT197,63
905 FORI=49730TO49886:READA:B=B+A:POKEI,A:NEXT
906 IFB<>22263THENPRINT"WRONG DATA!!":END
907 PRINT"[147]LOAD NOW THE BASIC PRG TO BE SECURED"
908 PRINT"AND START WITH SYS49730 ...
909 [131]160,0,165,45,133,171,165,46,133,172
910 [131]165,55,133,169,165,56,133,170,198,171
911 [131]165,171,201,255,208,2,198,172,198,169
912 [131]165,169,201,255,208,2,198,170,177,171
913 [131]145,169,165,171,197,43,165,172,229,44
914 [131]176,222,160,1,177,169,200,17,169,240
915 [131]67,160,0,177,169,145,171,200,192,5
916 [131]208,247,165,171,24,105,5,133,171,144
917 [131]2,230,172,160,0,152,145,171,200,169
918 [131]58,192,5,208,247,177,169,240,6,145
919 [131]171,200,76,161,194,152,24,101,169,133
920 [131]169,144,2,230,170,152,24,101,171,133
921 [131]171,144,185,230,172,76,118,194,160,0
922 [131]152,145,171,200,192,3,208,249,152,24
923 [131]101,171,133,45,165,172,105,0,133,46
924 [131]76,171,225,96,96,165,142